﻿Imports DATA
Public Class oFm_AgregarColumnas

    Private ofun As funcionario_data = New funcionario_data

    Private Sub oFm_AgregarColumnas_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Dispose()
    End Sub

    Private Sub oFm_AgregarColumnas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TituloFormulario = "Agregar días"
        Me.Text = "Días"
        CargaGrupo()
    End Sub

    Sub CargaGrupo()
        With oCb_grupo
            .DataSource = ofun.ObtenerGrupos
            .DisplayMember = "GRUPO_NOMBRE"
            .ValueMember = "GRUPO_ID"
            .SelectedValue = -1
        End With
    End Sub

    Private Sub oPb_guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oPb_guardar.Click
        If Val(oTx_cantidad.Text) = 0 Then MsgBox("El valor para asiganar un nuevo tramo tiene que ser superior a cero (0)", MsgBoxStyle.Exclamation, Me.Text) : Exit Sub
        If oCb_grupo.SelectedIndex = -1 Then MsgBox("Debe ingresar el grupo al pertence", MsgBoxStyle.Exclamation, Me.Text) : Exit Sub

        oFm_asistencia._eTipo = oFm_asistencia.eTipo.NuevoRegistro
        oFm_asistencia._columnas = Val(oTx_cantidad.Text)
        oFm_asistencia._Fecha = oDt_fecha.Value
        oFm_asistencia._grupoId = oCb_grupo.SelectedValue
        oFm_asistencia._grupoNombre = Trim(oCb_grupo.Text)
        oFm_asistencia.ShowDialog()
        Me.Close()

    End Sub
End Class
